RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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BEGIN 


Se RR AERA AE RARER AA AAER ERATE AERA AAA AAA AAA AAAAEREARARTHREAKARREREE EE 
'@ a 
is COPYRIGHT (c) 1978, 1980, 1982, 1984 ‘ 
ie DIGITAL EQUIPMENT CORPORATION, ” MAYNARD. MASSACHUSETTS. * 
5 ALL RIGHTS RESERVED. + 
oa 

ie THIS er: ss FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bICENSE AND WITH THE * 
'w INCLUSION OF THE ABOVE Se etD NOTICE. THIS SOFTWARE OR ANY OTHER’ * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 

! 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'‘® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
's CORPORATION. ° 
© 

® 

® 

« 

* 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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O08 ; FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

O03 ABSTRACT: Processes .LIST and .LIST ELEMENT commands. 

i ; ENVIRONMENT: Transportable 

O03 AUTHOR: R.W.Friday CREATION DATE: June, 1978 
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 seatdiee "Revision History’ 

MODIFIED BY: 

004 REROO004 Ron Randall 07-Mar-1983 
@ 
ie 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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Module Level Declarations 
ZSBTTL ‘Module Level Declarations’ 


TABLE OF CONTENTS: 
i INCLUDE FILES: 


LIBRARY 'NXPORT: re: 
QUIRE ‘REQ:RNODEF' 


F DSRPLUS %THEN 
BRARY ‘REQ:DPLLIB'; 


LSE 
— *REQ:DSRLIB'; 


EXTERNAL REFERENCES: 
EXTERNAL 


$01 : FIXED STRING, 

IRA : FIXED STRING 
LSTCHR : REF VECTOR, 
LSTCNT : REF COUNTED_LIST, 
LSTLCH : REF VECTOR, 
LSTRCH : REF VECTOR, 
LSTLDD : REF VECTOR, 
LSTSKP : REF VECTOR 
NUMPRM : NUMPRM_ DEFINE 
PDT : REF PDT DEFINITION, 
SCA : SCA_DEFINITION; 


EXTERNAL LITERAL 
RNFMQS, 


RN STD; 


EXTERNAL ROUTINE 
ENDCHR, 


STKFRM; 


984 7‘ VAK"11 BLiss-32_v4.0-742 2 
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! XPORT Library 
! RUNOFF variant definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 


',LIST ELEMENT character. 

ae ELEMENT counters and controls. 

he speressee to the left of the counter. 
he character to the right of the counter. 
i LIST ELEMENT eisplay codes 

iinter-.LIST ELEMENT skipping 


‘Error messages 


D 16 
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GLOBAL ROUTINE LIST (HANDLER_CODE) : NOVALUE = 


i” FUNCTIONAL DESCRIPTION: 

See ABSTRACT, above. 

i FORMAL PARAMETERS: 

HANDLER_CODE indicates which command is to be processed. 
i IMPLICIT INPUTS: 


32 _V4.0-742 Page 4 
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oO 


NUMPRM contains a number, as processed by GETNUM. 
i IMPLICIT OUTPUTS: None 


i ROUTINE VALUE: 
i COMPLETION CODES: None 


} SIDE EFFECTS: None 


BEGIN 
LOCAL 
BULLET, 
LIST_SKIP; 


sec | »HANDLER_CODE OF 


CH_LIST] : 
BEGIN 

OCAL 
GETQC_RESULT 
GOT_SEPARATOR; 


'If the user specified a bullet as the second parameter, pick it up. 
GOT_SEPARATOR=SKPSEP (IRA); 'Skip spaces/tabs, and a comma 


‘Attempt to pick ve a bullet. 
GETQC_RESULT = GETQC (); 


SIDED PDD DED AAD TT BB BB BBB BE PANINI oponon) 


MO OONOA VF WIN OOD NAN EWN O OD NOUS WIN CO OONOAUE WN OOONAOUE WP 


'See if user did spec ity a quoted string. 
IF (.GETQC_RESULT GEQ 0) 
User did give a quoted string. 


BULLET = .GETQC_RESULT 
Veer specified no Bullet. 


E 
BEGIN 


IF .GOT_SEPARATOR 
‘But user said to expect something!!! 


N 
ERMA (RNFMQS, TRUE); 
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BULLET = 0; 
END; 


. NOT STKFRM (.HANDLER_CODE) 
RETURN; 
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'Forget it if stack overflow. 


—-o CCL_MAX_INDEX] EQL .LSTCNT CCL INDEX] 


BEGIN 
ERMA (RNFSTD, FALSE); 
RETURN; 


'Too many nested Lists 


‘Compute the weet ELEMENT spacing. 


IF .NUM_LENGTH N 


‘User has specified a first parameter. 


LSTSKP C .LSTCNT CCL_INDEX] J = .NUM_VALUE 
‘User said nothing. Use paragraph skipping. 


LSE 
LSTSKP C .LSTCNT CCL_INDEX] J = .PDT_SKIP; 


BEGIN 
LOCAL 
TE 


‘Left margin computation 


'Use defensive margin computation in case of restrictive margins 


IF .SCA_LM EQL 0 
THEN 
TEMP = 9 
ELSE 
TEMP = 4; 
ve (.SCA_LM + . TEMP) LSS .SCA_RM 


SCA_LM = .SCA_LM + . TEMP; 


ITS 
I1T_cou 
5ED_COLUMNS; 


T cere command 
Ex] + 1; 


‘Either the bullet 
iNo character on the left 
‘Follow number with a ' 


gt'.': . 
TCONVRT_DEC_NOZ; ‘Convert counter to decimal. 


: vecres CCHSALLOCATION(20)], 


‘Columns needed for number plus ‘.##' 
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DIGIT_COUNT = .DIG 
END; 


‘Now figure out how much to “back-dent'’, so that the number and 
'the *, eppear just to the left of the ttt mecgio- 
ei Ehee.CoL S = .DIGIT_COUNT + 2; '2 for ‘Ra 

'The user has specified that a bullet is to be output. 
NEEDED_COLUMNS = 3; !'3 for character + ‘##', 

IF .NEEDED_COLUMNS GTR .SCA_LM 
SCA_INDENT = -.SCA_LM 
SCA_INDENT = -.NEEDED_COLUMNS; 


'Now signal a paragraph is to be started. 


; 1g 

: 1 4 'Update the running counter for this .LIST ELEMENT Level 

: 1g og ‘STENT C.LSTCNT it _INDEXJ] = .LSTCNT L.LSTCNT PCL INDEX] #5 

; 1 44 'Pick up proper inter-List-element spacing. 

5 18 45 IF “LS cht Pel INDEX] NEQ 1 , . 

ay 4g ‘User said .LIST before .LIST ELEMENT, so pick up his 

: Y r ppooctt tee spacing. 

: § 8 rk: LIST_SKIP = .LSTSKP C.LSTCNT CCL_INDEX] - 1 J 

5 0350 'User is starting a ‘level zero’’ List. Use current 

: ¢ 0 2) ‘paragraph skip instead. 

; 6 0358 LIST_SKIP = .PDT_SKIP; 

: 228 $338 IF .LSTCHR C.LSTCNT CCL_INDEX) - 1) EQL 0 

: 2 0337 ;r0e List elements are to be numbered. 

: 231 0358 4 BEGIN 

4 3 0359 4 PTR = CHSPTR (DIGITS); 

: 938 0360 4 DIGIT_COUNT = 0; 

: 35 0362 4 'If user specified a lLeft-character output it right now. | 
: 336 0368 ‘ if custuch E.vstewt CeLinoexd = 1 Nea‘ "9" | 
; 238 Baez $ iver did specify a left-character, so output it. 

: $2 0369 5 CHS$WCHAR A_(.LSTLCH C.LSTCNT CCL_INDEX] - 1], PTR); 

Bo ey pete 2) 

; 26 0370 4 : | 
; 244 0371 4 'Convert the counter to characters. | 
: $i? O36 2 DIGIT_COUNT = .DIGIT_COUNT + PACXXX (.LSTCNT C.LSTCNT CCL_INDEXJ], PTR, .LSTLDD C.LSTCNT CC | 
; seg §354 4 ‘Add on the right-character (usually a ‘'.') if there is one 

: 8 O32 2 ——_— C.CSTCNT CCL_INDEX] - 1 J] NEQ 0 
: 250 0377 5 BEGIN 

: 51 0378 5 CHSWCHAR (.LSTRCH C.LSTCNT CCL_INDEX] - 1], .PTR); 

3 $26 0379 5 = .DIGIT_COUNT + 1; 

—-- 0380 4 

3; 254 0381 4 

; 2 O356 ? 

: 28 8 ae 

; 258 5 4 

; 259 $ 4 

; 260 

a. 

i Bee 

; 65 : 

; $ 4 

: 3 6 
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SCA_PARA_PND = TRUE; 


'Text is output just as if it were coming from the ‘IRA’ 
BEGIN 


LOCAL 
HOLD_PDT_SKIP; 


'Substitute List siemens spacing for perserepn skip. 
st D_PDT_SKIP = .PDT_SKIP; 'Preserve current status. 
PDT_SKIP™= .LIST_SKIP; ‘Insert List element spacing. 


‘Output the List element marker; } ner a_number or a bullet. 


IF .LSTCHR C.LSTCNT CCL_INDEX] - L 0 
A ae a numbered List element 


BEGIN 
PTR = omerte (D ojeits) 
INCR 1 FROM 1 TO .DIGIT_COUNT DO 
ENDCHR (CHERCHAR’ A wrk) 
‘Output a List element marked with a bullet. 
ENDCHR (.LSTCHR C.LSTCNT CCL_INDEX] = 1)); 


ENDL ht cat two spaces which are to preceed the start of the text. 


END R xe! “} 

ENDURD (FALSE. * FALSE, FALSE); 
'Restore paragraph skipping. 
PDT_SKIP = : HOLD. PDT “skips” 
END? 

END; 


!End of LIST 


IST 
v04-000\ 
$01. IRA, LSTCHR 
STCNT Nertens LSTRCH 
STLDD: | ts SKP NUMPRM 


PDT S 
TRN RNFSTD MENDCHR ENDWRD 
TRN ERMA, GCSKIP 

XTRN PACXXX, SKPSEP, STKFRM 


-PSECT SCODES,NOWRT,2 


OFFC 000 
28 Q00G EF 9E 8 0 AB ERMA 
& a. = 0 MOVAB LSTCHR, R10 
3 G EF 9E 0001 MOVAB = LSTSKP, 
8 000 G EF 9€ 0001 MOVAB = ENDCHR, R8 
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000000006 
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liss- 
MASTE 


G 
EfQC_RESULT 
GETQC_RESULT, BULLET 
GOT_SEPARATOR, 3$ 


NT, RO 
4Rr0) 


LSTCNT, RO 
4(RO), Rg 

NUMPRAS 

R2), RO 

NUMPRM+4, @LSTSKPCRO] 
(R2), RO 

DT, R 

4(R1), @LSTSKPCROI 
cari te, RO 

#9, TEMP 


4, TEMP 

BAP (RO), R3 
@SCa+120 

» (RO) 


it 
NTCROJ, R1 
HRCROJ, R1 
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¥b2~000 Module Level Declarations 1 7330-1382 99:68:95 DISKSVMSMASTER:CRUNOFF.SRCILIST.BLI;1 > aS 
66 00 001¢9 MOVL STCNT, RO : 0409 | 
30 04 A pS i¢ MOVL rats », RO : - 

0 BA4O DE 0010 MOVAL at STCARCROI, RO : 
reg Har Gah Feel 
6E 04 AE Hi 1DA MOVAB DIGITS, PTR : 9413, 
33 p4 1 CLRL ei + 0414 | 
7E 00 BE A IE 22$ ROVZBL @PTR, -(SP) + 0415. 
68 oj F 1£ CALLS #1 ENDCHR : | 

F2 : HS 1EC 23$:  AOBLEQ biG! _COUNT, I, 228 : 
06 11 OO1F BRB : 9414 
FC AO DD OO1F2 24$:  PUSHL  -4(RO) + 0419 
1: b bs coir 25s: fm ee 0422. 

68 1 FB bife "CALLS ~=so #1, ENDCHR : 
0 DD 001FD PUSHL # + 0423 
5B 1 FB OOTFF CALLS #1, ENDCHR : 
E 7C 00202 CLRO 20s = §P) + 0424 

43 D4 00204 CLRL = = (SP) : 

000000006 Ef 03 FB 00206 CALLS #3, ENDWRD : 

0 67 09 0200 MOVL df, R : 
04 A0 54 v0 00 10 MOVL HOLO_PDT_SKIP, 4(RO) : 0427 


; Routine Size: 533 bytes, Routine Base: S$CODE$ + 0000 


s wO7 0434 1 
; 308 0435 1 END 'End of module 
: 309 0436 0 ELUDOM 

| 
; PSECT SUMMARY | 
: Name Bytes Attributes | 
F SCODES 533 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | 
: Library Statistics | 
‘SY eS ee Symbols -------- Pages Processing | 
: File Total Loaded Percent Mapped ime 
: _$255$DUA28:(SYSLIBIXPORT.L32;1 59 0 0 252 :00.1 
3; _$255$DUA28: RUNOFF .SRCJDSRLIB.L32;1 1348 21 1 86 $B 00:2 


1$-$00-1964 00:48:07 VAN11 tise-32_v4.0-742 age 


1 
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; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:LIST/OBJ=OBJ$:LIST MSRC$:LIST/UPDATE=(ENH$:LIST) 


weer Used: 145 pages 
ee ation Complete 


3 Sizes 533 code + 0 data bytes 
; Run T 0:10.1 

; ty Time: :28.0 

3; Lines/CPU Min: 

; Came Ae Rg = 1 7 


1| 
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